home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Mac / Lib / test / ctbtest.py < prev    next >
Text File  |  1995-12-21  |  706b  |  42 lines
  1. #
  2. # Simple test program for ctb module: emulate a terminal.
  3. #
  4. import ctb
  5. import macconsole
  6. import sys
  7.  
  8. def cb(err):
  9.     print 'Done, err=', err
  10.  
  11. def main():
  12.     if not ctb.available():
  13.         print 'Communications Toolbox not available'
  14.         sys.exit(1)
  15. #    c = macconsole.copen('Terminal window')
  16.     print 'Minimal terminal emulator V1.0'
  17.     print '(type @ to exit)'
  18.     print
  19.     c = macconsole.fopen(sys.stdin)
  20.     f = sys.stdin
  21.     c.setmode(macconsole.C_RAW)
  22.     
  23.     l = ctb.CMNew('Serial Tool', None)
  24.     l.Open(0)
  25.     
  26.     while 1:
  27.         l.Idle()
  28.         d = f.read(1)
  29.         if d == '@':
  30.             break
  31.         if d:
  32.             l.Write(d, ctb.cmData, -1, 0)
  33.         l.Idle()
  34.         d, dummy = l.Read(1000, ctb.cmData, 0)
  35.         if d:
  36.             f.write(d)
  37.             f.flush()
  38.     l.Close(-1, 1)
  39.     del l
  40.             
  41. main()
  42.